home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0073_50 Line mode.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-02  |  419 b   |  21 lines
  1. {
  2. SEAN PALMER
  3.  
  4. > Yeah, I almost think I learned assembly just to reProgram the Crt
  5. > Unit! (except I can't seem to find out how to get to 50-line mode With
  6. > assembly)
  7. }
  8.  
  9. Procedure set50LineMode; Assembler;
  10. Asm
  11.   mov ax, $1202
  12.   mov bl, $30
  13.   int $10     {set 400 scan lines}
  14.   mov ax, 3
  15.   int $10     {set Text mode}
  16.   mov ax, $1112
  17.   mov bl, 0
  18.   int $10     {load 8x8 font to page 0 block}
  19. end;
  20.  
  21.